home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / dis390.d64 / stufe 3 (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  4KB  |  125 lines
  1. 10 IFA=1THENGOTO40
  2. 20 IFA=2THENGOTO45
  3. 30 A=1:LOAD"ZUSATZ",8,1
  4. 40 A=2:LOAD"MUSIC1",8,1
  5. 45 GOSUB3000:REM"[141][145]45 CLR:RESTORE:WAIT178,21
  6. 50 [151]33000,4:[158]828,1,158
  7. 60 [151]53280,0:[151]53281,0:[153]"LOAD"
  8. 70 [158]828,1:[153]"LOAD               (null)TUFE 3 WAIT"
  9. 80 [153]"----------------------------------------"
  10. 90 [153]"SYS         [ F1 ] PEEKONUSSPIEL
  11. 100 PRINT"[150]         [[160]F3 ] [200]IGHSCORES"
  12. 110 PRINT"         [[160]F5 ] [218]UR [211]TUFE 4"
  13. 120 CLR:PRINT"[156]         [[160]F7 ] [193]BBRUCH/[197]NDMENUE"
  14. 130 WAIT198,1:GETA$
  15. 140 IFA$=CHR$(133)THENGOTO280
  16. 150 IFA$=CHR$(134)THENGOTO1110
  17. 160 IFA$=CHR$(135)THENGOTO190
  18. 170 IFA$=CHR$(136)THENGOTO220
  19. 180 GOTO130
  20. 190 PRINT"[147][144]LOAD";CHR$(34);"ZWISCHENSTUFE";CHR$(34);",8":SYS828,0
  21. 200 PRINT"RUN":POKE631,19:POKE632,13:POKE633,13:POKE198,3
  22. 210 STOP
  23. 220 PRINT"[147][159][215]ILLST [196]U WIRKLICH INS [197]NDMENUE ?"
  24. 230 PRINT" ( [202] / [206] )"
  25. 240 GETA$:IFA$<>"J"ANDA$<>"N"THENGOTO240
  26. 250 IFA$="N"THENGOTO60
  27. 255 GOSUB4000
  28. 260 PRINT"[147][144]LOAD";CHR$(34);"ENDMENUE";CHR$(34);",8":SYS828,0
  29. 270 PRINT"RUN":POKE631,19:POKE632,13:POKE633,13:POKE198,3:STOP
  30. 280 PU=0:P=0:PRINT"[147][158][196]U BEWEGST EIN [196]OPPELKREUZ (#)"
  31. 290 PRINT"[150]UEBER DEN [194]ILDSCHIRM, WELCHER SICH"
  32. 300 PRINT"LANGSAM MIT [203]AESTCHEN ( [146]) FUELLT."
  33. 310 PRINT"[150][196]EINE [193]UFGABE IST ES NUN, SOLANGE WIE"
  34. 320 PRINT"[158]MOEGLICH UEBER DEN [194]ILDSCHIRM ZU FAHREN,"
  35. 330 PRINT"[150]WIE ES NUR GEHT...KLEINES [208]ROBLEM:"
  36. 340 PRINT"ANHALTEN KANNST [196]U NICHT, [196]U BIST ALSO"
  37. 350 PRINT"[150]STAENDIG IN [194]EWEGUNG."
  38. 360 PRINT"[158][156][196]RUECKE [198]EUERKNOPF"
  39. 370 IFPEEK(56320)<>111THENGOTO370
  40. 380 PRINT"[147]"
  41. 390 IFPEEK(56320)<>127THENGOTO390
  42. 400 PRINT"[147][213]M DIE GANZE [193]NGELEGENHEIT NOCH EIN"
  43. 410 PRINT"[154]WENIG ZU ERSCHWEREN, DARFST [196]U [196]ICH"
  44. 420 PRINT"[159]NICHT IN DIE ENTGEGENGESETZTE [210]ICHTUNG"
  45. 430 PRINT"BEWEGEN, IN DIE [196]U GERADE FAEHRST."
  46. 440 PRINT"[155][193]LS[160][194]EISPIEL: BEWEGST [196]U [196]ICH GERADE"
  47. 450 PRINT"[152]NACH LINKS, DARFST [196]U JETZT NICHT ALS"
  48. 460 PRINT"[151]NAECHSTES NACH RECHTS."
  49. 470 PRINT"[202]E LAENGER [196]U UEBERLEBST, DESTO HOEHER"
  50. 480 PRINT"[153]IST NATUERLICH AUCH DEINE [208]UNKTZAHL."
  51. 490 PRINT"[193]UF [203]NOPFDRUCK GEHT'S LOS !"
  52. 500 IFPEEK(56320)<>111THENGOTO500
  53. 510 PRINT"[158][147]":IFPEEK(56320)<>127THENGOTO510
  54. 520 FORN=0TO24:POKE1024+N*40,160:POKE2023-N*40,160:NEXT
  55. 530 FORN=1TO20:POKE1043+N,160:POKE1984+N,160:POKE1044-N,160:POKE2023-N,160:NEXT
  56. 540 A=1507:B=119
  57. 550 FORN=1TO4:POKEA,32:FORM=1TO200:NEXT:POKEA,35:FORM=1TO200:NEXTM,N
  58. 560 REM
  59. 570 IFB=119THENGOSUB620
  60. 580 IFB=125THENGOSUB640
  61. 590 IFB=123THENGOSUB660
  62. 600 IFB=126THENGOSUB680
  63. 610 GOTO700
  64. 620 A=A+1:IFPEEK(A)<>32ORD=3THENGOTO790
  65. 630 POKEA-1,32:D=1:RETURN
  66. 640 A=A+40:IFPEEK(A)<>32ORD=4THENGOTO790
  67. 650 POKEA-40,32:D=2:RETURN
  68. 660 A=A-1:IFPEEK(A)<>32ORD=1THENGOTO790
  69. 670 POKEA+1,32:D=3:RETURN
  70. 680 A=A-40:IFPEEK(A)<>32ORD=2THENGOTO790
  71. 690 POKEA+40,32:D=4:RETURN
  72. 700 POKEA,35
  73. 710 IFPEEK(56320)=119THENB=119
  74. 720 IFPEEK(56320)=125THENB=125
  75. 730 IFPEEK(56320)=123THENB=123
  76. 740 IFPEEK(56320)=126THENB=126
  77. 750 P=P+5
  78. 760 C=INT(RND(TI)*700)+INT(RND(TI)*300):IFC=ATHENGOTO760
  79. 770 POKE1024+C,160
  80. 780 GOTO560
  81. 790 POKE53281,11:FORN=1TO25:NEXT
  82. 800 POKE53281,12:FORN=1TO25:NEXT
  83. 810 POKE53281,15:FORN=1TO25:NEXT
  84. 820 POKE53281,1:FORN=1TO25:NEXT:PRINT"[147]"
  85. 830 POKE53281,15:POKE53280,11:FORN=1TO25:NEXT
  86. 840 POKE53281,12:POKE53280,12:FORN=1TO25:NEXT
  87. 850 POKE53281,11:POKE53280,15:FORN=1TO25:NEXT
  88. 860 POKE53281,0:POKE53280,1:FORN=1TO25:NEXT
  89. 870 POKE53280,15:FORN=1TO25:NEXT
  90. 880 POKE53280,12:FORN=1TO25:NEXT
  91. 890 POKE53280,11:FORN=1TO25:NEXT
  92. 900 POKE53280,0:FORN=1TO25:NEXT
  93. 910 PRINT"[147] [199]AME [207]VER !
  94. 920 [153]"RIGHT$HRE (null)UNKTZAHL :"P
  95. 940 [153]"(null)AL SEHEN, OB DAS EIN (null)LATZ IN DIE"
  96. 950 [153]"LEFT$IGH-(null)CORE BRINGT...":[158]828,0
  97. 960 [159]1,8,2,"3-HIGH"
  98. 970 [129]N[178]1[164]9:[132]1,B$(N):[132]1,B(N):[130]:[160]1
  99. 980 [139]P[179]B(9)[167][137]1080
  100. 990 [153]"MID$A, STR$U BIST IN DER LEFT$IGHSCORE, MOMENT..."
  101. 995 [159]1,8,2,"NAME":[132]1,N$:[160]1
  102. 1000 [129]N[178]9[164]1[169][171]1
  103. 1010 [139]P[177]B(N)[167]B(N[170]1)[178]B(N):B$(N[170]1)[178]B$(N):B$(N)[178]N$:B(N)[178]P
  104. 1020 [130]
  105. 1030 [153]"LOADCLR   (null)TUFE 3 ... LEFT$IGH-(null)CORE"
  106. 1040 [129]N[178]1[164]9:[153]B$(N);[163]23);B(N):[130]
  107. 1050 [159]1,8,15,"S:3-HIGH":[160]1
  108. 1060 [159]1,8,2,"3-HIGH,S,W"
  109. 1070 [129]N[178]1[164]9:[152]1,B$(N):[152]1,B(N):[130]
  110. 1080 [160]1:[137]60
  111. 1090 [153]"LIST(null)EIN, LEIDER NICHT. (null)UTTU NOCH UEBEN !"
  112. 1100 [129]N[178]1[164]2000:[130]:[137]60
  113. 1110 [158]828,0:[153]"LOADCLR   (null)TUFE 3 ... LEFT$IGH-(null)CORESYS"
  114. 1120 [159]1,8,2,"3-HIGH":[129]N[178]1[164]9:[132]1,B$(N):[132]1,B(N):[130]:[160]1
  115. 1130 [129]N[178]1[164]9:[153]B$(N);[163]23);B(N):[130]
  116. 1140 [153]" (null)ETURN WAIT":[158]828,1
  117. 1150 [161]A$:[139]A$[179][177][199](13)[167][137]1150
  118. 1160 [137]60
  119. 3000 [159]1,8,2,"DATA":[143]"GOSUBON3000 POKE54781,12+C:FORN=1TO1024TO2023:NEXT
  120. 3010 INPUT#1,A$:REM"[141][145]3010 POKEN,N-1:NEXTN:A=PEEK(56320)
  121. 3020 [139]A$[179][177]"GUT"[167][158]64738:[143]"GOSUBON3020 IFD<>0ORPEEK(56320)=127THEND=C
  122. 3030 CLOSE1:RETURN:REM"[141][145]3030 IFPEEK(56392)=124THENGOTO3000
  123. 3040 [142]
  124. 4000 [158]828,0:[153]"LOAD":[159]1,8,2,"NAME,S,A":[152]1,"LOSE":[160]1:[142]
  125.